home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / lblcs.arc / KEY_SCAN.ASM < prev    next >
Assembly Source File  |  1985-04-17  |  1KB  |  66 lines
  1.  
  2. ;---------------------------------------------------------------------
  3. ; 
  4. ; name        key_scan - see if key is available from keyboard
  5. ;
  6. ; synopsis    ch = key_scan();
  7. ;
  8. ; description    Check the DOS keyboard buffer for characters available.
  9. ;        returns 0 if no characters area available, or character
  10. ;        and scan code in the same manner as key_getch().  Note
  11. ;        that this routine does not remove characters from the
  12. ;        buffer - you must use key_getch() to do that.  Several
  13. ;        calls to this routine will return the same character -
  14. ;        i.e. the first character available in keyboard buffer.
  15. ;
  16. ; Notes:
  17. ;        NOT identical to the CI-C86 library function of the 
  18. ;        same name, which returns EOF or 0xffff if no chars
  19. ;        are available.
  20. ;---------------------------------------------------------------------
  21.  
  22.  
  23.  
  24.  
  25.     include    dos.mac
  26.  
  27. keyboard    equ    16h        ; video interrupt number
  28.  
  29.  
  30.     IF    LPROG
  31. X    EQU    6        ;OFFSET OF ARGUMENTS
  32.     ELSE
  33. X    EQU    4        ;OFFSET OF ARGUMENTS
  34.     ENDIF
  35.  
  36.     PSEG
  37.  
  38.  
  39.     PUBLIC    key_scan
  40.  
  41.  
  42.     IF    LPROG
  43. key_scan    PROC    FAR
  44.     ELSE
  45. key_scan    PROC    NEAR
  46.     ENDIF
  47.  
  48.     push    bp
  49.  
  50.     mov    ah,1        ; scan keyboard function
  51.     int    keyboard
  52.     jz    no_key        ; no character available
  53.     jmp    short done
  54. no_key:    xor    ax,ax        ; return Z condition
  55. done:    pop    bp   
  56.     ret
  57.  
  58. key_scan    ENDP
  59.  
  60.  
  61.     endps
  62.     end
  63.  
  64.  
  65.  
  66.